(setq flst (dos_dir (STRCAT (GETVAR "dwgprefix") "Tables\\" "*.tif")))
(foreach n flst (dos_rename (STRCAT (GETVAR "dwgprefix") "Tables\\" n)(STRCAT (GETVAR "dwgprefix") "Tables\\" (SUBSTR n 27))))
(setq flst (dos_dir (STRCAT (GETVAR "dwgprefix") "Tables\\" "*.tif")))
(setq xval 0.0 yval 30.75)
(foreach n flst
  (command "-image" "attach" (STRCAT "Tables\\" n) (LIST xval yval) 7.8559 0.0)
  (if (< yval 10.5)
    (setq xval (+ xval 7.75)
	  yval 30.75
    )
    (setq yval (- yval 10.25))
  )
)
